home *** CD-ROM | disk | FTP | other *** search
/ Mission 1 / Mission 1 / Mission 1.iso / pd_share / gamemono / pling / lev_dat.lst < prev    next >
Encoding:
File List  |  1994-12-16  |  1.1 KB  |  52 lines
  1. > PROCEDURE level_dat_speichern
  2.   ad=adr
  3.   POKE ad,levelanz
  4.   INC ad
  5.   FOR q=1 TO levelanz
  6.     POKE ad,LEN(entrance$(q))
  7.     INC ad
  8.     schluessel=RANDOM(56)+200
  9.     POKE ad,schluessel
  10.     INC ad
  11.     FOR q2=1 TO LEN(entrance$(q))
  12.       POKE ad,schluessel-ASC(MID$(entrance$(q),q2,1))
  13.       INC ad
  14.     NEXT q2
  15.     POKE ad,LEN(levelname$(q))
  16.     INC ad
  17.     FOR q2=1 TO LEN(levelname$(q))
  18.       POKE ad,255-ASC(MID$(levelname$(q),q2,1))
  19.       INC ad
  20.     NEXT q2
  21.   NEXT q
  22.   BSAVE "LEVEL.DAT",adr,(ad-adr)
  23. RETURN
  24. > PROCEDURE level_dat_laden
  25.   DIM entrance$(255),levelname$(255)
  26.   IF EXIST("LEVEL.DAT")
  27.     ad=adr
  28.     BLOAD "LEVEL.DAT",adr
  29.     levelanz=PEEK(ad)
  30.     INC ad
  31.     FOR q=1 TO levelanz
  32.       len=PEEK(ad)
  33.       INC ad
  34.       schluessel=PEEK(ad)
  35.       INC ad
  36.       FOR q2=1 TO len
  37.         entrance$(q)=entrance$(q)+CHR$(schluessel-PEEK(ad))
  38.         INC ad
  39.       NEXT q2
  40.       len=PEEK(ad)
  41.       INC ad
  42.       FOR q2=1 TO len
  43.         levelname$(q)=levelname$(q)+CHR$(255-PEEK(ad))
  44.         INC ad
  45.       NEXT q2
  46.     NEXT q
  47.   ELSE
  48.     levelanz=0
  49.     level=0
  50.   ENDIF
  51. RETURN
  52.